#!/usr/local/bin/perl5
%hash;
@key=keys %hash;
@num=values %hash;
while(defined($name=<STDIN>))
{
	chomp $name;
	$_=$name;
	last if(/quit/);
	$hash{$name}++ if(/$name/);
	push @key,$name;
	
	foreach $key (sort keys %hash)
	{
		print "$key=>$hash{$key}\n";
	}
	print "\n";
}